*Data Replication for "Sweetening the Deal: The Strategic Value of Combining Inducements with Militarized Compellent Threats"

**Note
***"dispute history"->d_history
***"capability ratio"->c_ratio
***"inducement history"->i_history

************Packages******************
ssc install estout, replace
ssc install cem, replace
**************************************


use "replication_fpa_k2023.dta", clear

**********
**Tables**
**********

*Table 2
est clear
eststo: biprobit (outcome=inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar)(inducement=i_history contiguity stake c_ratio alliance target_democracy coercer_democracy coldwar), vce(cluster casegroup)
eststo: probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar, vce(cluster casegroup)
esttab, starlevel(* 0.10 ** 0.05 *** 0.01)se compress nogap

*Table 3
probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar , vce(cluster casegroup)
margins, dydx(inducement)  force

*Table 4
drop if inducement==.
imb stake alliance target_democracy coercer_democracy, tr(inducement)
cem stake(#0) alliance(#0) target_democracy(#0) coercer_democracy(#0), tr(inducement) showbreak

*Table 5
est clear
eststo: probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar, vce(cluster dyad)
eststo: probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar [iweight=cem_weights], vce(cluster dyad)
esttab, starlevel(* 0.10 ** 0.05 *** 0.01)p compress nogap

*Table 6 
probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar, vce(cluster dyad)
margins, dydx(inducement)  force

probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
  coercer_democracy target_democracy coldwar [iweight=cem_weights], vce(cluster dyad)
margins, dydx(inducement)  force

**************
**Appendix B**
**************

*Descriptive Statistics of Variable in Use
use "replication_fpa_k2023.dta", clear

sum outcome
sum inducement
sum stake
sum demonstration
sum d_history
sum alliance
sum c_ratio
sum contiguity
sum coercer_nuke
sum target_nuke
sum coercer_democracy
sum target_democracy
sum coldwar
sum i_history

***********
**Figures**
***********
use "replication_fpa_k2023.dta", clear

*Figure 1
twoway (histogram inducement if stake==1, discrete percent width(0.2) xlabel(0 "No Inducement" 1 "Inducement") ylabel(0 20 40 60 80 100) xscale(range(-0.5 1.5)))
graph save figure1_1.gph, replace

twoway (histogram inducement if stake==0, discrete percent width(0.2) xlabel(0 "No Inducement" 1 "Inducement") ylabel(0 20 40 60 80 100)xscale(range(-0.5 1.5)))
graph save figure1_2.gph, replace

graph combine figure1_1.gph figure1_2.gph, rows(1)


*Figure 2
twoway (histogram stake if inducement==1, discrete percent width(0.2) xlabel(0 "Low stake" 1 "High stake") ylabel(0 20 40 60 80 100) xscale(range(-0.5 1.5)))

*Figure 3

probit outcome inducement demonstration stake d_history alliance c_ratio contiguity coercer_nuke target_nuke ///
coercer_democracy target_democracy coldwar, vce(cluster casegroup)
margins, at(inducement=(0 1))
marginsplot, recast(scatter) xscale(range(-0.5 1.5)) xlabel(0 "No Inducement" 1 "Inducement")
